home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / examples / factoriel.amighp < prev    next >
Text File  |  1977-12-31  |  204b  |  26 lines
  1. DEF
  2.    I J  INTEGER
  3. ENDDEF
  4.  
  5. J GETI
  6. J D1STO
  7. J GETI
  8. IF J 10513 != THEN 514 ERROR ENDIF
  9. 5 INCD1
  10. J GETI
  11.  
  12. J I STO
  13.  
  14. IF I 0 == THEN 515 ERROR ENDIF
  15.  
  16. WHILE I 1 !=
  17. DO
  18.  
  19.  I DEC
  20.  J I MUL J STO
  21.  
  22. ENDWHILE
  23.  
  24. J PUSH
  25. EXIT
  26.